Voorbeeld van de functie InputBox

Dit voorbeeld toont verschillende manieren waarop de functie InputBox kan worden gebruikt om de gebruiker te vragen een waarde in te voeren. Als de x- en y-posities worden weggelaten, wordt het dialoogvenster automatisch gecentreerd voor de desbetreffende assen. De variabele MyValue bevat de ingevoerde waarde als u op OK klikt of op ENTERRETURN drukt. Als u op Annuleren klikt, wordt een tekenreeks met lengte nul als resultaat gegeven.

Dim Message, Title, Default, MyValue
Message = "Voer een waarde in tussen 1 en 3"    ' Stel vraag in.
Title = "Demo InputBox"    ' Stelt titel in.
Default = "1"    ' Stelt standaard in.
' Geeft bericht, titel en standaardwaarde weer.
MyValue = InputBox(Message, Title, Default)

' Gebruikt Help-bestand en context. De knop Help wordt automatisch toegevoegd.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Geeft dialoogvenster weer op positie 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)